32 Constant max-bytes-line
Create line-buffer max-bytes-line 2 + allot

: not 0= ;

: process
  begin
    dup file-eof? not
  while
    \ read lines until the file has been completely processed
    line-buffer max-bytes-line stdin read-line throw  \ stack: acc length eof-flag
    \ check that everything was read OK from the line buffer
    swap dup 0 > rot and
    if
      type
    then
  repeat ;

stdin process
